home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG13A.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  512b  |  28 lines
  1. PROGRAM PROG13A;
  2. {$U+    Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics:  Referencing specific characters in strings
  5.  
  6. }
  7.  
  8. CONST
  9.    S_Test = 'TURBO';
  10.  
  11. VAR
  12.    S8  :  String[8];
  13.  
  14.    I   :  Integer;
  15.  
  16. BEGIN
  17.  
  18.   REPEAT
  19.     S8 := S_Test;
  20.     WriteLn(S8);
  21.     Write('Enter position number: ');
  22.     ReadLn(I);
  23.     WriteLn(S8[I]);
  24.     WriteLn;
  25.   UNTIL I < 0;
  26.  
  27. END.
  28.